Nordpool/nordpool mediagroup backgrounds vol 001.iso/npinstall

Text File | 1995-10-25 | 10KB | 308 lines

; Nordpool installer script (V1.0) ⌐ 1995 by Pit Vetterick

;--------------------------- Zuweisung ---------------------------------------

(set @default-dest "ram:")
(set usedir @default-dest)

(set #CDir "C:")
(set #SDir "S:")
(set #LIBSDir "Libs:")



;----------------------- German Text String ----------------------------------

(if (= @language "deutsch")

    (

;============================= SYS-Version

         (set #kick "Einige Tools ben÷tigt leider Amiga-OS 3.0 oder h÷her")

;============================ Benutzer Info

         (set #Info-msg
              (cat "\n\nNordpool Installationsskript.\n"
                   "\n Nordpool-Install V0.1 beta \n"
                   "\n"
                   "Nordpool ⌐ 1995 Nordpool Media Group\n"
                   "All rights reserved.\n"
              )
         )

;======================= temponΣr oder stationΣr

         (set #Auswahl-msg
              (cat "\nM÷chten Sie die CD temponΣr einrichten oder in einem\n"
                   "Verzeichnis auf Ihrer Festplatte installieren ?\n"
              )
         )

;============================== temponΣr

         (set #temp-msg
              (cat "\nTEMPON─R EINRICHTEN\n\n"
                   "Ihre Nordpool CD wird nun lediglich temponΣr\n"
                   "im RAM: eingerichtet.\n\n"
                   "Wollen Sie nach einem Systemstart, Programme\n"
                   "oder Anwendungen benutzen die eine Zuweisung\n"
                   "ben÷tigen, mⁿ▀ten Sie diesen Vorgang wieder-\n"
                   "holen oder die CD stationΣr installieren."
              )
         )

;============================== stationΣr

         (set #stat-msg
              (cat "\nINSTALLIEREN\n\n"
                   "Auf einer Partition Ihrer Wahl, wird das Verzeichnis\n\n"
                   "*** NPwork ***\n\n"
                   "angelegt und in der User-Startup zugewiesen.\n"
                   "Dieses Verzeichnis dient als Base fⁿr Anwendungen\n"
                   "der Nordpool-CD Serie.\n\n"
                   "Alle von Ihnen gewΣhlten Programme werden in dieses\n"
                   "Verzeichnis kopiert und sind damit fⁿr Sie schnell\n"
                   "zu finden.\n"

              )
         )

         (set #dest-msg
              (cat "\nWΣhlen Sie bitte die von Ihnen gewⁿnschte Verzeichnis\n"
              )
         )

         (set #statcopy-msg
              (cat "\nWΣhlen Sie bitte die von Ihnen ben÷tigten Programme\n"
              )
         )

         (set #MD-msg
              (cat "MP wird nun instaliert"
              )
         )

         (set #VT-msg
              (cat "ViewTek wird nun instaliert"
              )
         )

;========================== Add Assign NPwork

         (set #HD-assign
              (cat "ACHTUNG...folgende ASSIGN-Anweisungen werden in Ihre User-Startup eingetragen:"
              )
         )

;======================== Installation beendet

         (set #Exit-msg
              (cat "\n"
                   "\n"
                   "Die Nordpool CD ist nun installiert.\n"
                   "Wir hoffen, Sie sind mit der Installation\n"
                   "zurecht gekommen und wⁿnschen Ihnen nun\n"
                   "viel Spa▀ bei Ihrer creativen Arbeit.\n"
                   ".\n"
                   "\n"
                   "Mit freundlichen Grⁿ▀en,\n"
                   "\n"
                   "\n"
                   "\n"
                   "Ihr Nordpool-Team"
              )
         )
    )
)

;----------------------------- SYS-Version -----------------------------------

; make sure we are running under a 3.0 OS

(if (< (/ (getversion) 65536) 39)
    (
         (abort #kick)
    )
)

;---------------------------- Benutzer Info ----------------------------------

(message #Info-msg)

;---------------------------- temponΣr oder stationΣr ------------------------

(set ProgVers
    (askchoice
         (prompt #Auswahl-msg)
         (help @askchoice-help)
         (choices "temponΣr" "stationΣr")
    )
)

(if (= ProgVers 0)

; ............................................... (temponΣr)
; then

    (
         (message #temp-msg)

              (set usedir "ram:")
              (set scala "Nordpool:")
              (set IDdir "Nordpool:Tools/AMIGA/ImageDesk")
              (makeassign "POOl" useDir)
              (makeassign "SCALA" scala)
    )

; ............................................... (stationΣr)
; else

    (
         (message #stat-msg)
         (set usedir
              (askdir
                   (prompt #dest-msg)
                   (help @askdir-help)
                   (default @default-dest)
              )
         )
         (set Modules
          (askoptions
           (prompt #statcopy-msg)
           (help @askoptions-help)
           (choices
                        "Nordpool"
            "MPEG Play"
            "ViewTek"
           )
           (default -1)
          )

         )
         (if  (> Modules 0)
              (
;========================================================= NORDPOOL
                   (if  (in Modules 0)
                        (

                             (copyfiles
                                  (source "Nordpool:Tools/Amiga/NORDPOOL/")
                                  (dest usedir)
                                  (ALL)
                             )

                             (set #add-Nordpool
                                  (cat "\nDas Verzeichnis Nordpool wird als\n"
                                       "\n*** POOL: ***\n"
                                       "\nIhrem System zugewiesen.\n"
                                       "\nSie finden den Eintrag in Ihrer User-Startup als:\n"
                                       "\n;Begin Nordpool    "
                                       "\nassign POOL: (Pfad)"
                                       "\n;End Nordpool      "
                                  )
                             )
                             (set #adding-Nordpool "Nun wird das Nordpool Assign Ihrer User-StartUp Datei zugefⁿgt.")

                            ;(set #adding-help "Dieses Assign MU▀ existieren!")

                             (message #add-Nordpool)

                             (makeassign "POOl" useDir)
                             (startup "Nordpool"
                              (command "Assign POOL: " usedir "\n")
                              (prompt #adding-Nordpool)
                              (help @adding-help)
                             )
                        )
                   )
;========================================================= MP
                   (if  (in Modules 1)
                        (
                                  (copyfiles
                                       (prompt #MP-Msg)
                                       (help @copyfiles-help)
                                       (source "Nordpool:Tools/Amiga/MP/MP")
                                       (dest #CDir)
                                  )
                        )
                   )

;========================================================= VIEWTEK
                   (if  (IN Modules 2)
                        (
                             (if  (exists (tackon usedir "NORDPOOL/TOOLS/"))
                                  (set destdir (tackon usedir "NORDPOOL/TOOLS"))
                             )
                             (message #VT-msg)

                             (set #CopyC-Msg
                                  (cat "\nDiese Viewer unterstⁿtzen verschieden Grafikkarten\n"
                                       "\nWelche Viewer sollen kopiert werde ?"
                                  )
                             )



;====== install tools =====

                                  (copyfiles
                                       (prompt #CopyC-Msg)
                                       (help @copyfiles-help)
                                       (source "Nordpool:Tools/Amiga/Copy_to_c/VT/")
                                       (dest #CDir)
                                       (all)
                                       (confirm 1)
                                  )

;== install viewtek dir ==
                                  (copyfiles
                                       (source "Nordpool:Tools/Amiga/VIEWTEK/")
                                       (dest destdir)
                                       (ALL)
                                  )
                        )
                   )
              )
         )

;................................................ stationΣres assign

                             (set #add-Scala
                                  (cat "\nDas Verzeichnis Nordpool:Scala wird als\n"
                                       "\n*** Scala: ***\n"
                                       "\nIhrem System zugewiesen.\n"
                                       "\nSie finden den Eintrag in Ihrer User-Startup als:\n"
                                       "\n;Begin Scala           "
                                       "\nif exists Nordpool:    "
                                       "\nassign Scala: Nordpool:"
                                       "\nendif                  "
                                       "\n;End Scala             "
                                  )
                             )

                             (set #adding-Scala "Nun wird das Scala Assign Ihrer User-StartUp Datei zugefⁿgt.")

                             (message #add-Scala)

                             (set scala "Nordpool:")
                             (makeassign "SCALA" scala)

                             (startup "Scala"
                                  (command "if exists nordpool:""\n")
                                  (command "assign SCALA: nordpool:""\n")
                                  (command "endif""\n")
                                  (prompt #adding-Scala)
                                  (help @adding-help)
                             )

    )
)

;------------------------ Installation beendet -------------------------------
(set @default-dest usedir)
(message #exit-msg)